home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a11.bas < prev    next >
BASIC Source File  |  1993-11-30  |  2KB  |  56 lines
  1. 1000 'A11.BAS***************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 1:CLS:CD PLAY 2
  3. 1020 LINE (50,30)-(270,200),PSET,6,B
  4. 1030 LINE (48,28)-(272,202),PSET,6,B
  5. 1040 LINE (51,31)-(269,199),PSET,[150,0,150],BF:P=0
  6. 1050 A$="色のグラデュエーションによる方形"
  7. 1060 C=LEN(A$):D=(80-C)\2:LOCATE 0,22:PRINT SPACE$(D)+A$
  8. 1070 '
  9. 1080 FOR K=0 TO 4
  10. 1090   READ B,R,G,A2$,JP
  11. 1100   C2=LEN(A2$):D2=(80-C2)\2:LOCATE 0,23:PRINT SPACE$(D2)+A2$
  12. 1110   FOR JJ=1 TO JP
  13. 1120     LOCATE 5,1:PRINT SPACE$(30):T1=TIME
  14. 1130     FOR J=43 TO 163 STEP 50
  15. 1140       FOR T=64 TO 234 STEP 50
  16. 1150         IF JP=2 THEN GOSUB *MAIN1 ELSE GOSUB *MAIN2
  17. 1160       NEXT
  18. 1170     NEXT
  19. 1180     T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒｡" 
  20. 1190     WAIT 137
  21. 1200     JP=JP+1
  22. 1210   NEXT
  23. 1220 NEXT
  24. 1230 GOTO 1520
  25. 1240 '   
  26. 1250 *MAIN1
  27. 1260  FOR I=0 TO 21
  28. 1270    IF B=1 THEN BB=I*12 ELSE BB=0
  29. 1280    IF R=1 THEN RR=I*12 ELSE RR=0
  30. 1290    IF G=1 THEN GG=I*12 ELSE GG=0
  31. 1300    IF B=2 THEN BB=150:RR=0:GG=150
  32. 1310    LINE (T+I,J+I)-(T+43-I,J+43-I),PSET,[BB,RR,GG],BF
  33. 1320    II=II-1
  34. 1330  NEXT
  35. 1335  WAIT 20
  36. 1340 RETURN
  37. 1350 *MAIN2
  38. 1360  II=21
  39. 1370  FOR I=0 TO 21
  40. 1380    IF B=1 THEN BB=II*12 ELSE BB=0
  41. 1390    IF R=1 THEN RR=II*12 ELSE RR=0
  42. 1400    IF G=1 THEN GG=II*12 ELSE GG=0
  43. 1410    IF B=2 THEN BB=150:RR=0:GG=150
  44. 1420    LINE (T+I,J+I)-(T+43-I,J+43-I),PSET,[BB,RR,GG],BF
  45. 1430    II=II-1
  46. 1440  NEXT
  47. 1445  WAIT 20
  48. 1450 RETURN
  49. 1460 '
  50. 1470 DATA 0,1,1,"☆☆☆ 赤のグラデュエーション ☆☆☆",2
  51. 1480 DATA 1,0,1,"☆☆☆ 青のグラデュエーション ☆☆☆",2
  52. 1490 DATA 1,1,0,"☆☆☆ 黄のグラデュエーション ☆☆☆",2
  53. 1500 DATA 1,1,1,"☆☆☆ 白のグラデュエーション ☆☆☆",2
  54. 1510 DATA 2,2,2,"   ☆☆☆ 方形を消します｡ ☆☆☆    ",1
  55. 1520 'GOTO 1320
  56.